home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / game / patch / WHDIGamesC-D.lzh / Deliverance.lha / Deliverance / Deliverance next >
Text File  |  1998-07-09  |  2KB  |  87 lines
  1. ;----------------------------
  2. ; Adapted from Bert Jahn
  3. ;----------------------------
  4. ;****************************
  5.  
  6. (set #readme-file "README")    ;name of readme file
  7. (set #CI_drive "DF0:")        ;default source drive
  8. (set #cleanup "")            ;files to delete after install
  9.  
  10. ;****************************
  11.  
  12. (set @default-dest
  13. (askdir
  14.     (prompt ("Where should \"%s\" installed ?\nA drawer \"%s\" will automatically created." @app-name @app-name))
  15.     (help @askdir-help)
  16.     (default @default-dest)
  17.     (disk)
  18. )
  19. )
  20.  
  21. (set #dest (tackon @default-dest @app-name))
  22.  
  23. ;if anything similar exist delete it
  24. (if
  25.     (exists #dest)
  26.     (run ("Delete \"%s\" \"%s.info\" all" #dest #dest))
  27. )
  28.  
  29. (makedir #dest
  30.     (help @makedir-help)
  31.     (infos)
  32. )
  33.  
  34. ;----------------------------
  35.  
  36. (run ("c:assign \"%s:\" \"%s\"" @app-name #dest))
  37.  
  38. (copyfiles
  39.     (help @copyfiles-help)
  40.     (source ("%s.inf" @app-name ))
  41.     (newname ("%s.info" @app-name ))
  42.     (dest #dest)
  43. )
  44. (copyfiles
  45.     (help @copyfiles-help)
  46.     (source ("%s.slave" @app-name ))
  47.     (dest #dest)
  48. )
  49. ; in expert mode ask for source drive
  50. (if
  51.     (= @user-level 2)
  52.     (set #CI_drive
  53.         (askstring
  54.             (prompt "Select source drive for diskimages")
  55.             (default #CI_drive)
  56.             (help @askstring-help)
  57.         )
  58.     )
  59. )
  60.  
  61. (run ("patcher -pimager%s -s%s" @app-name #CI_drive))
  62.  
  63. (if
  64.     (exists #readme-file)
  65.     (copyfiles
  66.         (help @copyfiles-help)
  67.         (source #readme-file)
  68.         (dest #dest)
  69.     )
  70. )
  71.  
  72. ;----------------------------
  73.  
  74. (run ("Delete %s ALL QUIET FORCE" #cleanup))        ;delete all temporary files
  75.  
  76. (if
  77.     (exists #readme-file)
  78.     (if 
  79.         (= 0 (run ("SYS:Utilities/Multiview %s" #readme-file)))
  80.         ("")
  81.         (run ("SYS:Utilities/More %s" #readme-file))
  82.     )
  83. )
  84.  
  85. (exit)
  86.  
  87.